﻿
Partial Class _Default
    Inherits CPage

    Protected Overrides Sub PageInit()
        'If CSitemap.IsMobileBrowser Then Response.Redirect(CSitemap.Home_Mobile)
        'plhShowItunesTwitterFacebook.Visible = CSetting.ShowItunesTwitterFacebook

        lnkPodcast.NavigateUrl = CSitemap.Audio

        lnkStore2.NavigateUrl = CSitemap.ConferenceSets

        lnkAbout2.NavigateUrl = CSitemap.About

        lnkSchedule2.NavigateUrl = CSitemap.Schedule

        lnkSermons2.NavigateUrl = CSitemap.Store(EProductType.Sermon)
        lnkSermons3.NavigateUrl = CSitemap.External_Podcast

        lnkFacebook1.NavigateUrl = CSitemap.External_Facebook

        lnkTwitter1.NavigateUrl = CSitemap.External_Twitter

        litAbout.Text = CSetting.AboutTextBrTruncate()

        'Todo: Featured content control - link to product
        'ctrlProduct.Display(CSetting.FeaturedProduct)

        MetaKeywords = CSetting.MetaKeywords_Home
        MetaDescription = CSetting.MetaDescription_Home

        lnkTrans.Text = CUtilities.NameAndCount("Transcripts", CProduct.Cache.Active.HavingTranscripts)
        lnkSermons.Text = CUtilities.NameAndCount("Audio", CProduct.Cache.Active.Sermons.HavingMp3)
        lnkVideo.Text = CUtilities.NameAndCount("Videos", CProduct.Cache.Active.Sermons.HavingVideos)
        lnkNotes.Text = CUtilities.NameAndCount("eBooks", CProduct.Cache.Active.Sermons.HavingEpub)
        'lnkArt.Text = CUtilities.NameAndCount("Art", CProduct.Cache.Active.Sermons.GetByImageScribeId(eScribe.Colleen))

        CProductPage.BottomMenuLinks(rowLinks, rowRandom, New CProduct())
    End Sub

End Class
